home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / budget report (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  80 lines
  1. 1 poke53282,8:poke53283,15:poke53284,2:poke53280,246:poke53281,246
  2. 2 poke 53265,peek(53265)or64
  3. 5 gosub 60000:poke53280,246:poke53281,246
  4. 10 print"[147]":poke53281,22:poke53280,22
  5. 15 printtab(5)"[152][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  6. 16 printtab(5)"[221]                           [221]"
  7. 17 printtab(5)"[221]           t h e[152]           [221]"
  8. 20 printtab(5)"[221]                           [221]"
  9. 22 printtab(5)"[221] b u d g e t   r e p o r t [152][221]"
  10. 23 printtab(5)"[221]                           [221]"
  11. 24 printtab(5)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  12. 25 printtab(11)"[155]by mark gosswiller"
  13. 27 printtab(13)"copyright 1987"
  14. 30 print"    press return when ready to print  "
  15. 35 print"          press space to exit          "
  16. 40 getc$:ifc$="" then40
  17. 50 ifc$=" " then close4:goto 60100
  18. 52 ifc$<>chr$(13) then40
  19. 54 open15,4,15:close15:ifst<>0 then 60300
  20. 55 print"[147]":poke53280,11:poke53281,0
  21. 57 print" while printing is in progress,press"
  22. 58 print"  the space key to abort printing"
  23. 59 :
  24. 60 :
  25. 70 r$=chr$(14):open4,4,0
  26. 80 print#4,spc(4)"** budget report **"
  27. 90 print#4,chr$(13):print#4,spc(5)"for month [164][164][164][164][164][164][164][164][164] year [164][164][164][164][164]"
  28. 100 print#4,chr$(13):print#4:print#4
  29. 110 print#4,"         item          amt/due    amt/paid     check #";
  30. 120 print#4,"     date/paid    balance"
  31. 130 print#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  32. 140 print#4,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  33. 145 fori=1to20:if peek(203)=60 then print#4:close4:goto 10
  34. 150 print#4,chr$(13)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164]";
  35. 160 print#4,"[164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][164][186][164][164][164][164][164][164][164][164][164][164][164]"
  36. 165 a=fre(0):nexti
  37. 170 print#4,chr$(13)" total expenses for month ==>    [164][164][164][164][164][164][164][164][164][164][164]"
  38. 180 print#4,chr$(13)" total income for month   ==>    [164][164][164][164][164][164][164][164][164][164][164]"
  39. 190 print#4,chr$(13)" remaining  funds         ==>    [164][164][164][164][164][164][164][164][164][164][164]"
  40. 197 print#4:print#4:print#4:print#4
  41. 200 close4:goto10
  42. 60000 print"[147]"
  43. 60011 print"                                        ";
  44. 60012 print"            [156]loadstar presents            ";
  45. 60013 print"                                        ";
  46. 60014 print"          [149]"chr$(34)"the budget report"chr$(34)"          ";
  47. 60015 print"                                        ";
  48. 60016 print"           by  mark gosswiller          ";
  49. 60017 print"                                        ";
  50. 60018 print"             copyright 1987             ";
  51. 60019 print"                                        "
  52. 60030 print""
  53. 60035 print"  press any key when ready to continue "
  54. 60037 geta$:ifa$=""then 60037
  55. 60049 poke 53265,27:return
  56. 60099 end
  57. 60100 print"[145]           are you sure (y/n)         "
  58. 60110 geta$:ifa$=""then 60110
  59. 60112 ifa$="[217]"ora$="y"then 60115
  60. 60113 ifa$="[206]"ora$="n"then print"[145][145]";:goto35
  61. 60114 goto 60110
  62. 60115 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  63. 60117 ifer<>63 then end
  64. 60120 load"hello connect",8
  65. 60300 print"[147]"
  66. 60301 poke54296,15:poke54290,65:poke54286,195:poke54287,1:poke54296,0
  67. 60310 print"[158]                       "
  68. 60320 print"  printer (device 4)   "
  69. 60325 print"                       "
  70. 60335 print"   is not connected    "
  71. 60340 print"                       "
  72. 60345 print" press space to retry  "
  73. 60347 print"                       "
  74. 60348 print" press return to abort "
  75. 60349 print"                       "
  76. 60350 geta$:ifa$="" then 60350
  77. 60355 ifa$=chr$(13) then 10
  78. 60357 ifa$<>" "then 60350
  79. 60358 goto 54
  80.